home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 4
/
FM Towns Free Software Collection 4 - Disc 1.iso
/
fb386
/
egcg2
/
g35.bas
< prev
next >
Wrap
BASIC Source File
|
1991-10-18
|
715b
|
24 lines
100 ' G35 T.WAKAMATSU
110 CLS:S=5:R=130:PI=3.14159!:U=1
120 C(1)=2:C(2)=3:C(3)=7:C(4)=2
130 FOR J=0 TO 32 STEP 2
140 P=J/180*PI:S=S+5:R=160-S:U=U+.2!:N=INT(U)
150 V=COS(P)*R+320:W=SIN(P)*R+240:PSET(V,W)
160 FOR I=0 TO 360 STEP 3
170 T=I/180*PI:R=SIN(T*6-PI/2)*S+160
180 X=COS(T+P)*R+320:Y=SIN(T+P)*R+240
190 LINE-(X,Y),PSET,%C(N)
200 NEXT I
210 NEXT J
220 FOR D=1 TO 8000:NEXT D
230 R=130:PI=3.14159!:U=1:S=5
240 FOR J=0 TO 32 STEP 2
250 P=J/180*PI:S=S+5:R=160-S
260 V=COS(P)*R+320:W=SIN(P)*R+240:PSET(V,W)
270 FOR I=0 TO 360 STEP 3
280 T=I/180*PI:R=SIN(T*6-PI/2)*S+160
290 X=COS(T+P)*R+320:Y=SIN(T+P)*R+240
300 LINE-(X,Y),PSET,0
310 NEXT I
320 NEXT J